    ' Copyright 2009, 2010 Massimo Franciosa
    'This file is part of MYLK.

    'MYLK is free software; you can redistribute it and/or modify
    'it under the terms of the GNU General Public License as published by
    'the Free Software Foundation; either version 2 of the License, or
    '(at your option) any later version.

    'Nome-Programma is distributed in the hope that it will be useful,
    'but WITHOUT ANY WARRANTY; without even the implied warranty of
    'MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    'GNU General Public License for more details.

    'You should have received a copy of the GNU General Public License
    'along with Nome-Programma; if not, write to the Free Software
    'Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

Public Class VIDEOINFO
  Private sName As String
  Private sCode As String
  Private sImgUrl As String
  Private oTag As Object
  Private sEngine As String

    ''' <summary>
    ''' url of the image that rapresents the video
    ''' </summary>
    ''' <value></value>
    ''' <returns></returns>
    ''' <remarks></remarks>
  Public Property ThumbImageUrl() As String
    Get
      Return sImgUrl
    End Get
    Set(ByVal value As String)
      sImgUrl = value
    End Set
  End Property

  ''' <summary>
  ''' name of the video
  ''' </summary>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Property Name() As String
      Get
          Return sName
      End Get
      Set(ByVal value As String)
          sName = value
      End Set
  End Property

  ''' <summary>
  ''' code that uses the engine to identificate the video
  ''' </summary>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Property Code() As String
    Get
      Return sCode
    End Get
    Set(ByVal value As String)
      sCode = value
    End Set
  End Property

  ''' <summary>
  ''' additional object that can be store additional information 
  ''' </summary>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Property Tag() As Object
    Get
      Return oTag
    End Get
    Set(ByVal value As Object)
      oTag = value
    End Set
  End Property

  ''' <summary>
  ''' the name of the engine used to play the video
  ''' </summary>
  ''' <value></value>
  ''' <returns></returns>
  ''' <remarks></remarks>
  Public Property EngineName() As String
    Get
      Return sEngine
    End Get
    Set(ByVal value As String)
      sEngine = value
    End Set
  End Property

  Public Sub New()
    sName = ""
    sCode = ""
  End Sub

  Public Sub New(ByVal sNameParam As String, ByVal sCodeParam As String)
    sName = sNameParam
    sCode = sCodeParam
    sImgUrl = ""
  End Sub

  Public Sub New(ByVal sNameParam As String, ByVal sCodeParam As String, ByVal sImgParam As String)
    sName = sNameParam
    sCode = sCodeParam
    sImgUrl = sImgParam
  End Sub

End Class
